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How to Identify Different Implementations 


This document is intended as a summary of RPG language information for 
RPG/400® and Integrated Language Environment®(ILE) RPG. RPG/400 and ILE 
RPG are implementations of the RPG III and RPG IV languages, respectively. 
Unless otherwise indicated, the information in this document applies to both RPG 
III and RPG IV. 


Some operation codes have been expanded from 5 characters to 6 characters in 
RPG IV. In those cases, the RPG III version will be in parenthesis next to the 
expanded version. For example, EXCEPT has the code (EXCPT) next to it. This 
signifies that EXCEPT is the ILE RPG version of EXCPT. This logic, highlighting 
the highest level of differentiation, is followed throughout this document. 


The tables listing the fields on the RPG specifications are provided in two formats, 
one for RPG III and another for RPG IV. The RPG III tables list positions for RPG 
III under the positions column and the corresponding RPG IV position or keyword 
under the RPG IV column. This is reversed for the RPG IV tables. 


SEU PROMPTS 


In the chapters describing the RPG specifications, SEU prompts are given in the 
caption for each table. 
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Chapter 1. Error Handling 


Table 1. File Error Codes 


Normal Conditions 


Codes 


Meaning 


00000 
00002 
00011 
00012 
00013 


Codes 


No exception/error occurred. 
Function key used to end display. 
End of file on input. 

Record not found. 

Subfile is full on a write operation. 


Exception-Error Conditions 


Meaning 


01011 


01021 


01022 
01023 
01024 
01031 
01041 
01042 
01051 
01071 
01121 
01122 
01123 
01124 
01125 
01126 
01201 
01211 
01215 
01216 
01217 
01218 
01221 
01222 


01231 
01235 
01241 


01251 
01255 
01261 
01271 
01281 
01282 
01284 


Undefined record type (input record does not match record-identifying 
indicator). 

Tried to write a record that already exists (file being used has unique 
keys and key is duplicate, or attempted to use duplicate relative record 
number to a subfile). (RPG IV only) 

Referential constraint error detected on file member. 

Error in trigger program before file operation performed. (RPG IV only) 
Error in trigger program after file operation performed. (RPG IV only) 
Match field out of sequence. 

Array/table load sequence error. 

Array/table load sequence error. Alternate collating sequence used. 
Excess entries in array/table file. 

Record out of sequence in file. 

No indicator on the DDS keyword for Print Key. 

No indicator on the DDS keyword for Roll Up Key. 

No indicator on the DDS keyword for Roll Down Key. 

No indicator on the DDS keyword for Clear Key. 

No indicator on the DDS keyword for Help Key. 

No indicator on the DDS keyword for Home Key. 

Record mismatch detected on input. 

I/O operation to a closed file. 

OPEN issued to a file already open. 

Error on an implicit OPEN/CLOSE operation. 

Error on an explicit OPEN/CLOSE operation. 

Unable to allocate a record in the file. 

Update or delete operation attempted without a prior read. 

Unable to allocate record due to referential constraint error. (RPG IV 
only) 

Error on SPECIAL file. 

Error in PRTCTL space or skip entries. 

Record number not found. (Record number specified in record address 
file is not found in controlled file.) 

Permanent I/O error occurred. 

Session or device error occurred. Recovery may be possible. 

Attempt to exceed maximum number of devices defined for file. 
Attempt to acquire unavailable device. 

Operation to unacquired or undefined device. 

Job ending with controlled option. 

Unable to acquire second device for single device file (RPG IV only) 
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Table 1. File Error Codes (continued) 


01285 
01286 
01287 
01299 
01331 


Attempt to acquire an allocated device. 

Attempt to open shared file with SAVDS or SAVIND options. 
Response indicators overlap SAVIND indicators. 

I/O error detected. 

Wait time exceeded for input operations to WORKSTN file. 
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Table 2. Program Status Codes 


Normal Conditions 


Codes Meaning 

00000 No exception/error occurred. 

00001 Called program returned with the LR indicator on. 
00050 Conversion resulted in substitution. (RPG IV only) 


Exception-Error Conditions 


Codes Meaning 

00100 Value out of range for string operation. 

00101 Negative square root. 

00102 Divide by zero. 

00103 An intermediate result is not large enough to contain the result. (RPG 
IV only) 

00104 Float underflow. An intermediate value is too small to be to contained 
in the intermediate result field. (RPG IV only) 

00105 Invalid characters in character to numeric conversion functions. 

00112 Invalid Date, Time or Timestamp value. (RPG IV only) 

00113 Date overflow or underflow. (For example, when the result of a Date 
calculation results in a number greater than *Hival or less than *Loval.) 
(RPG IV only) 

00114 Date mapping errors, where a Date is mapped from a 4 character year 
to a 2 character year and the date range is not 1940-2039. (RPG IV only) 

00115 Variable length character or graphic field has a current length that is 
not valid. (RPG IV only) 

00120 Table or array out of sequence. 

00121 Invalid array index. 

00122 OCCUR value is out of range. 

00123 RESET attempted during initialization. 

00202 Call to program or procedure ended in error. 

00211 Error occurred while calling program or procedure. 

00221 Called program tried to use a parameter not passed to it. (RPG III only) 

00222 Pointer or parameter error. (RPG IV only) 

00231 Called program returned with halt indicator on. 

00232 Halt indicator on in this program. 

00233 Halt indicator on when RETURN operation run. 

00299 RPG dump failed. 

00301 Class or method not found for a method call, or error in method call. 

00302 Error while converting a Java array to an RPG parameter on entry to a 
Java native method. 

00303 Error converting RPG parameter to Java array on exit from an RPG 
native method. 

00304 Error converting RPG parameter to Java array in preparation for a Java 
method call. 

00305 Error converting Java array to RPG parameter or return value after a 
Java method. 

00306 Error converting RPG return value to Java array. 

00333 Error on DSPLY operation. 

00401 Data area not found. 

00402 *PDA not valid for non-prestart job. 

00411 Data area types or lengths do not match. 

00412 Data area not allocated for output. 

00413 An I/O error occurred while processing data area. 

00414 User not authorized to use data area. 

00415 User not authorized to change data area. 
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Table 2. Program Status Codes (continued) 


00421 
00425 
00426 


00431 
00432 
00450 
00501 
00502 
00802 
00803 
00804. 
00805 
00907 
00970 


09998 
09999 


Error while unlocking data area. 

Length requested for storage allocation is out of range. (RPG IV only) 
Error encountered during storage management operation. (RPG IV 
only) 

Data area previously allocated to another process. 

*LOCK for data area not granted. 

Character field not entirely enclosed by SO and SI. (RPG IV only) 
Failure to retrieve sort sequence. 

Failure to convert sort sequence. 

Commitment control not active. 

Rollback operation failed. 

Error occurred on COMMIT operation. 

Error occurred on ROLBK operation. 

Decimal data error (invalid digit or sign). 

The level numbers of the generating compiler and the run-time 
subroutines do not match. 

Internal failure in RPG compiler or in run-time subroutines. 
Program exception in system routine. 
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Chapter 2. RPG Character Set 


The valid character set for the RPG language consists of: 


The letters ABCDEFGHIJKLMNOPQRSTUVWXYZ 
The lettersabcdefghijklmnopqrstuvwxyz (RPGIV only) 
The numbers 0123456789 

The characters +—*,.’&/$#:@ 

The characters _ > < = () % (RPG IV only) 

The blank character 


Note: The §, #, and @ may appear as different symbols on some codepages. For 


more information on national language code pages, see the Globalization 
topic in the iSeries Information Center at URL 
http:/ / www.ibm.com/eserver/iseries /infocenter. 
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Chapter 3. Control Specifications 
Table 3. RPG III Control Specification Summary Chart (H) 


Positions Name Entry RPG IV 
6 Form type H 6 
7-14 Blank n/a 
15 Debug Blank DEBUG 
1 
16-17 Blank n/a 
18 Currency symbol Blank CURSYM 
Currency symbol 
19 Date format Blank DATEDIT 
M 
D 
¥ 
20 Date edit (Y edit code) | Blank Any character DATEDIT 
21 Decimal Notation Blank DECEDIT DATEDIT 
I 
i! 
D 
22-25 Blank n/a 
26 Alternate collating Blank ALTSEQ 
sequence S 
27-40 Blank n/a 
41 Forms alignment Blank FORMSALIGN 
1 
42 Blank n/a 
43 File translation Blank FTRANS 
F 
44-56 Blank n/a 
57 Transparency check Blank n/a 
1 
58-74 Blank n/a 
75-80 Program identification DFTINAME 
Table 4. RPG IV Control Specification Summary Chart (H) 
Positions or 
Keyword Name Entry RPG III 
6 Form type H 6 
7-80 Keywords n/a 
ACTGRP Activation group *NEW | *CALLER | n/a 
‘activation- 
group-name’ 
ALTSEQ Alternate collating {*NONE | *SRC | *EXT} 26 
sequence 
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Table 4. RPG IV Control Specification Summary Chart (H) (continued) 


Positions or 


Keyword Name Entry RPG III 

ALWNULL Allow null-capable fields *NO | *INPUTONLY | n/a 
*USRCTL 

AUT Authority *LIBRCRTAUT | *ALL | |n/a 
*CHANGE | *USE | 
*EXCLUDE | 
‘authorization- 
list-name’ 

BNDDIR Binding directories ‘binding-directory n/a 
-name’ {:’binding- 
directory-name’...} 

CCSID Default graphic CCSID *GRAPH: *IGNORE | n/a 
*SRC | number 

CCSID Default UCS-2 CCSID *UCS2: number n/a 

COPYNEST Maximum nesting level 1-2048 n/a 

COPYRIGHT Copyright string ‘string’ n/a 

CURSYM Currency symbol ‘symbol’ 18 

CVTOPT Convert options *{NO}DATETIME n/a 
*{NO}GRAPHIC 
*{NO}VARCHAR 
*{NO}VARGRAPHIC 

DATEDIT Date edit (Y edit code) fmt{separator} 19,20,21 

DATFMT Date format fmt{separator} n/a 

DEBUG Debug {*NO | *YES} 15 

DECEDIT Decimal notation *JOBRUN | ‘value’ 21 

DECPREC Decimal precision 30 | 31 n/a 

DFTACTGRP Default activation group *YES | *NO n/a 

DFTNAME Default name rpg_name 75-80 

ENBPFRCOL Enable performance *PEP | *ENTRYEXIT | n/a 

collection *FULL 

EXPROPTS Expression options *MAXDIGITS | n/a 
*RESDECPOS 

EXTBININT Integer format for {*NO | *YES} n/a 

externally-described binary 
fields 

FIXNBR Fix decimal data *{NO}ZONED n/a 
*{NO}INPUTPACKED 

FLTDIV Floating point division {*NO | *YES} n/a 

FORMSALIGN Forms alignment {*NO | *YES} 41 

FTRANS File Translation {*NONE | *SRC} 43 

GENLVL Generation level 0-20 n/a 

INDENT Indent in source listing *NONE | ‘character-value’ |n/a 

INTPREC Integer precision 10 | 20 n/a 

LANGID Language identifier *JOBRUN |! *JOB | n/a 
‘language- 
identifier’ 


ILE RPG Reference Summary 


Table 4. RPG IV Control Specification Summary Chart (H) (continued) 


Positions or 


Keyword Name Entry RPG III 
NOMAIN Module without main n/a 
procedure 

OPENOPT Open printer file option *{NO}INZOFL n/a 

OPTIMIZE Optimization level *NONE | *BASIC | *FULL |n/a 

OPTION Options *{NO}XREF *{NO}GEN n/a 
*{NO}SECLVL 
*{NO}SHOWCOPY 
*{NO}JEXPDDS *{NO}EXT 
*{NO}SHOWSKP 
*{NO}SRCSTMT 
*{NO}DEBUGIO 

PRFDTA Profiling data *NOCOL | *COL n/a 

SRTSEQ Sort sequence table *HEX | *JOB | *JOBRUN | |n/a 
*LANGIDUNQ | 
*LANGIDSHR | 
’sort-table-name’ 

TEXT Program information text *SRCMBRTXT | *BLANK [n/a 
| ‘description’ 

THREAD Multi-thread environment | *SERIALIZE n/a 

TIMFMT Time format fmt{separator} n/a 

TRUNCNBR Move truncated value *YES | *NO n/a 

USRPRF User profile *USER | *OWNER n/a 
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Chapter 4. File Description Specifications 


Main File Description Line Summary Chart 


Table 5. RPG III Main File Description Line Summary Chart (F, FK) 


Positions Name Entry RPG IV 
6 Form type F 6 
7-14 File name Valid file name 7-16 
15 File type I 17 
O 
U 
Cc 
16 File designation Blank 18 
P 
S 
R 
T 
F 
7 End of file E 19 
Blank 
18 Sequence A or Blank 21 
D 
19 File format F 22 
E 
20-23 Blank n/a 
24-27 Record length 1-9999 23-27 
28 Limits processing Ti 28 
Blank 
29-30 Length of key field or | 1-99 29-33 
record address field Blank 
31 Record address type Blank 34 
A 
P 
K 
32 Type of file Blank 35 
organization I 
T 
33-34 Overflow indicators Blank OFLIND 
OA-OG, OV 
01-99 
35-38 Key field starting Blank KEYLOC 
location 1-9999 
39 Extension code Blank n/a 
E 
L 
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Table 5. RPG III Main File Description Line Summary Chart (F, FK) (continued) 


Positions Name Entry RPG IV 
40-46 Device PRINTER 36-42 
DISK 
WORKSTN 
SPECIAL 
SEQ 
47-52 Blank n/a 
53 Continuation lines Blank n/a 
K 
54-59 Name of routine Name of user-supplied | SPECIAL 
routine 
60-65 Blank n/a 
66 File Blank 20 
addition / unordered A 
67-70 Blank 
71-72 File condition Blank EXTIND USROPN 
U1-U8 
UC 
73-74 Blank n/a 
75-80 Comments Optional 81-100 
Table 6. RPG IV File Description Fixed Form Summary Chart (F) 
Positions or 
Keyword Name Entry RPG III 
6 Form type F 6 
7-16 File name Valid file name 7-14 
17 File type I 15 
O 
U 
Cc 
18 File designation Blank 16 
P 
S 
R 
T 
F 
19 End of file E 17 
Blank 
20 File Blank 66 
addition / unordered A 
21 Sequence A or Blank 18 
D 
22 File format F 19 
E 
23-27 Record length 1-32766 24-27 
28 Limits processing L 28 
Blank 
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Table 6. RPG IV File Description Fixed Form Summary Chart (F) (continued) 


Positions or 


Keyword Name Entry RPG II 
29-33 Length of key field or 1-2000 29-30 
record address field Blank 
34 Record address type Blank 31 
A 
P 
K 
G 
D 
il 
Z 
F 
35 Type of file Blank 32 
organization I 
T 
36-42 Device PRINTER 40-46 
DISK 
WORKSTN 
SPECIAL 
SEQ 
43 Reserved Blank n/a 
44-80 Keywords n/a 
81-100 Comments Optional 75-80 
Continuation Line Summary Chart 
Table 7. RPG III Continuation Line Summary Chart (FC) 
Positions Name Entry RPG IV 
6 Form type F 6 
7-18 Blank n/a 
19-28 External name of record | RENAME IGNORE 
format 
29-46 Blank n/a 
47-52 Record number field for | Numeric field name SFILE 
SFILE. 
53: Continuation line K n/a 
54-59, 60-677 n/a 
68-74 Blank n/a 
75-80 Comments Optional 81-100 
Notes: 


1. These positions are used together. Positions 54 through 59 specify the option, while 
positions 60 through 67 provide further explanation of the option. 
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Continuation Line Options Summary Chart 
The valid entries for positions 54 through 67 are: 


Table 8. RPG III Continuation Line Options 


Option 
(54-59) 


Entry (60-67) 


Explanation 


RPG IV 


COMIT 


Blank 


This file is specified for commitment control. 


COMMIT 


ID 


Field name 


Positions 60-65 contain the left-justified name 
of a 10-character alphanumeric field which 
does not need to be further defined. This 
field contains the name of the program 
device that supplied the record being 
processed in the file. 


DEVID 


IGNORE 


Blank 


This option lets you ignore a record format 
from an externally-described file. 


IGNORE 


IND 


Indicator 
number 


Indicators from 01 to the number specified 
are saved and restored for each device 
attached to a mixed or multiple device file. 


SAVEIND 


INFDS 


Data 
structure 
name 


This entry lets you define and name a data 
structure to contain the exception/error 
information. The data structure name is 
entered in positions 60 through 65 and 
left-justified. If INFDS is specified for more 
than one file, each associated data structure 
must have a unique name. 


INFDS 


INFSR 


Subroutine 
name 


The file exception/error subroutine named 
(left-justified) in positions 60 through 65 may 
receive control following file 
exceptions/errors. The subroutine name may 
be *PSSR, which indicates the user-defined 
program exception/error subroutine is to be 
given control for errors on this file. 


INFSR 


NUM 


Maximum 
number of 
devices 


The number specified must be greater than 
zero and right-justified in positions 60 
through 65. 


MAXDEV 


PASS 


*NOIND 


Specify PASS *NOIND on the file-description 
specification continuation line for a program 
described WORKSTN file if you are taking 
responsibility for passing indicators on input 
and output. 


PASS 


PLIST 


Parameter list 
name 


This entry is valid only when the device 
specified in positions 40 through 46 of the 
main file description line is SPECIAL. 
Positions 60 through 65 give the left-justified 
name of the parameter list that is to be 
passed to the special routine. 


PLIST 


PRICTL 


Data 
structure 
name 


The dynamic printer control option is being 
used. The data structure specified 
left-justified in positions 60 through 65 refers 
to the forms control information and line 
count value. 


PRTICTL 
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Table 8. RPG III Continuation Line Options (continued) 


Option 
(54-59) Entry (60-67) | Explanation RPG IV 
RECNO Field name This entry is optional for disk files to be RECNO 
processed by relative record number. A 
RECNO field must be specified for output 
files processed by relative record number, 
output files that are referenced by a random 
WRITE calculation operation, or output files 
that are used with ADD on the output 
specifications. 
RENAME Record This entry, which is optional, allows you to | RENAME 
format name | rename record formats in an externally 
described file. Positions 19 through 28 of the 
continuation line specify the external name 
of the record format that is to be renamed. 
Positions 60 through 67 specify the 
left-justified name of the record as it is used 
in the program. 
SAVDS Data Positions 60-65 contain the left-justified name | SAVEDS 
structure of the data structure that is saved and 
name restored for each device. 
SFILE Record Positions 60 through 67 must specify, SFILE 
format name | left-justified, the RPG name of the record 
format to be processed as a subfile. Positions 
47 through 52 must specify the name of the 
relative record number field for this subfile. 
SLN Field name Positions 60-65 contain the left-justified name | SLN 
of a start line number (SLN) field. The SLN 
field determines where a record format will 
be written to a display file. 
Table 9. RPG IV File Description Specification Keywords (F) 
RPG IV 
Keyword Name Entry RPG III 
BLOCK Record blocking *YES | *NO n/a 
COMMIT Commitment control {rpg_name} COMIT 
DATFMT Date format fmt{separator} n/a 
DEVID Program device fieldname ID 
EXTFILE File name filename n/a 
EXTIND External indicator *INU1-*INU8 71-72 
EXTMBR Member name menbername n/a 
FORMLEN Form length of printer file | number (L) 15-17, 
18-19 
FORMOFL Overflow line number number (L) 20-22, 
23-24 
IGNORE Ignore record format recformat IGNORE 
INCLUDE Include record format recformat n/a 
INDDS Name an indicator data data structure name n/a 


structure 
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Table 9. RPG IV File Description Specification Keywords (F) (continued) 


RPG IV 
Keyword Name Entry RPG III 
INFDS Name a feedback data data structure name INFDS 
structure 
INFSR File exception/error subroutine name INFSR 
subroutine 
KEYLOC Key field location number 35-38 
MAXDEV Maximum number of *ONLY | *FILE NUM 
devices for WORKSTN file 
OFLIND Overflow indicator *INOA-*INOG, *INOV, 33-34 
*INO1-*IN99, name 
PASS Do not pass indicators *NOIND PASS 
PGMNAME SPECIAL device program name 54-59 
PLIST Name of parameter list to | plist name PLIST 
be passed to program for 
SPECIAL file 
PREFIX Prefix, partial rename prefix string{:number} n/a 
PRTCTL Dynamic printer control data structure 
name{:COMPAT} 
RAFDATA Name of RAF data file filename (E) 11-18 
RECNO Processed by relative fieldname RECNO 
record number 
RENAME Rename record format external_format_name : RENAME 
from externally described | internal_format_name 
file 
SAVEDS Save data structure data structure name SAVDS 
SAVEIND Save indicators number IND 
SFILE Subfiles recformat : rrnfield SFILE 
SLN Start line number number SLN 
TIMFMT Time format fmt{separator} n/a 
USROPN User controlled open 71-72 
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Table 10. RPG III Extension Specification Summary Chart (E) 


Positions Name Entry RPG IV 
6 Form type E n/a 
7-10 Blank n/a 
11-18 From file name Blank (F) RAFDATA (D) 
FROMFILE 
Record-address file 
name 
Array or table file 
name 
19-26 To file name Blank (D) TOFILE 
Name of an input or 
update file containing 
data records 
Name of an output 
or combined file 
27-32 Table or array name Table or array name (D) 7-21 
33-35 Number of entries per | Blank (D) PERRCD 
record 1-999 
36-39 Number of entries per | 1-9999 (D) DIM 
array or table 
40-42 Length of entry 1-256 (D) 33-39 
43 Data Format Blank (D) EXTFMT 
P 
B 
L 
R 
44 Decimal positions Blank (D) 41-42 
0-9 
45 Sequence Blank (D) ASCEND 
A DESCEND 
D 
46-51 Table or array name Table or array name (D) ALT (D) 7-21 
(alternating format) (alternating format) 
52-54 Length of entry 1-256 (D) 33-39 
55 Data Format Blank (D) EXTFMT 
P 
B 
L 
R 
56 Decimal positions Blank (D) 41-42 
0-9 
57 Sequence Blank (D) ASCEND 
A DESCEND 
D 
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Table 10. RPG III Extension Specification Summary Chart (E) (continued) 


Positions 


Name 


Entry 


RPG IV 


58-80 


Comments 


Optional 


(D) 81-100 
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Chapter 6. Line Counter Specifications 


Table 11. RPG III Line Counter Specification Summary Chart (L) 


Positions Name Entry RPG IV 

6 Form type L n/a 

7-14 File name Valid file name (F) 7-16 

15-17 Number of lines per 2-112 (F) FORMLEN 
page 

18-19 Form length FL (F) FORMLEN 

20-22 Overflow line number | 2-112 (F) FORMOFL 

23-24 Overflow line OL (F) FORMOFL 

25-74 Blank n/a 

75-80 Comments Optional (F) 81-100 
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Chapter 7. Definition Specifications 
Table 12. RPG IV Definition Specification (D) 


Positions or 
Keyword Name Entry RPG III 
6 Form type D n/a 
7-21 Name Symbolic name (I) 7-12, 53-58 
(E) 27-32, 
46-51 
22 External Description Blank (I) 17 
E 
23 Type of Data Structure Blank (I) 18 
S 
U 
24-25 Type of Definition Blank (I) 19-20, 43 
Cc 
DS 
PI 
PR 
S 
26-32 From Position Blank (I) 44-47 
nnnnnnn 
33-39 To Position / Length Blank (I) 48-51 (E) 
nnnnnnn 40-42, 52-54 
+/-nnnnn 
40 Internal Data Type Blank (I) 43 
A 
B 
C 
D 
F 
G 
I 
N 
O 
P 
S 
T 
U 
Z 
+ 
41-42 Decimal Positions Blank (I) 52 (E) 44, 
0-31 56 
43 Reserved n/a 
44-80 Keywords n/a 
ALIGN Align integer, unsigned n/a 
and float subfields 
ALT Alternating array main array_name (E) 27-32 
ALTSEQ Alternate sequence options | *NONE n/a 
for field 
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Table 12. RPG IV Definition Specification (D) (continued) 


Positions or 
Keyword Name Entry RPG III 
ASCEND Sort sequence (E) 45, 57 
BASED Basing pointer basing_pointer_name n/a 
CCSID Graphic and UCS-2 CCSID |number | *DFT n/a 
CLASS Class *JAVA:classname n/a 
CONST Constant name constant value (I) 21-42, 43 
CONST Read-only parameter n/a 
CTDATA Compile time data n/a 
DATEFMT Date format format{separator} n/a 
DESCEND Sort sequence (E) 45, 57 
DIM Number of elements in numeric constant (E) 36-39 
array 
DTAARA Data area name {*VAR:}data area name n/a 
EXPORT Field can be exported {external name} n/a 
EXTFLD Rename an externally field name (I) 21-30 
described subfield 
EXTFMT External data type B (E) 43, 55 
C 
F 
I 
L 
P 
R 
S 
U 
EXTNAME External file with field (filename{:extrecname} (I) 21-30 
descriptions {*ALL|*INPUT | 
*OUTPUT | *KEY}) 
EXTPGM External prototyped program name n/a 
program name 
EXTPROC External prototyped {fFCL |*CWIDEN n/a 
procedure name |*CNOWIDEN 
| {*JAVA:classname}} 
procedure name 
FROMFILE File pre-run time array is file_name (E) 11-18 
loaded from 
IMPORT Field can be imported {external name} n/a 
INZ Initialize data {constant | *EXTDFT (I) 21-42 
| *LIKEDS | *NULL 
|*USER | *JOB1|*SYS} 
LIKE Define a field like another |rpg_name n/a 
LIKEDS Define a data structure like | data structure name n/a 
another 
LIKEREC Define a data structure like | (intrecname{:*ALL | n/a 
a record format *INPUT | *OUTPUT | *KEY}) 
NOOPT No optimization n/a 
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Table 12. RPG IV Definition Specification (D) (continued) 


Positions or 


Keyword Name Entry RPG III 

OCCURS Number of occurrences in | numeric_constant (I) 44-47 
multiple occurrence data 
structure 

OPDESC Operational descriptor n/a 

OPTIONS Parameter passing options |*NOPASS *OMIT n/a 
for prototyped parameters |*VARSIZE *STRING 

*RIGHTADJ 

OVERLAY Overlay data structure name{:pos | *NEXT} n/a 
subfield 

PACKEVEN Packed field has an even n/a 
number of digits 

PERRCD Number of elements per numeric constant (E) 33-35 
record 

PREFIX Add, replace a prefix to prefix string{:number} n/a 
externally described fields 

PROCPTR Field is a procedure n/a 
pointer 

QUALIFIED Subfields use qualified n/a 
names 

STATIC Data item uses static n/a 
storage, or Java method is 
static 

TIMFMT Time format format{separator} n/a 

TOFILE File to write array or table | filename (E) 19-26 
data to 

VALUE Pass prototyped parameter n/a 
by value 

VARYING Varying length character or n/a 


graphic field 
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Chapter 8. Input Specifications 


Table 13. RPG III Externally Described Files, Record Identification Entries (IX) 


Positions Name Entry RPG IV 
6 Form type I 6 
7-14 Record name Record format name 7-16 
15-18 Blank 17-20 
19-20 Record identifying Blank 21-22 
indicators 01-99 

L1-L9, LR 

H1-H9 

U1-U8 

RT 
21-74 Blank 23-80 
75-80 Comments Optional 81-100 


Table 14. RPG III Externally Described Files, Field Entries (JX) 


Positions Name Entry RPG IV 
7-20 Blank 7-20 
21-30 External field name Field name 21-30 
31-52 Blank 31-48 
53-58 RPG field name Field name 49-62 
59-60 Control level Blank 63-64 
L1-L9 
61-62 Match fields Blank 65-66 
M1-M9 
63-64 Blank 67-68 
65-70 Field indicators Blank 69-74 
01-99 
H1-H9 
U1-U8 
RT 
71-74 Blank 75-80 
75-80 Comments Optional 81-100 


Table 15. RPG III Program Described Files, Record Identification Entries (I) 


Positions Name Entry RPG IV 
6 Form type I 6 
7-14 File name Valid file name 7-16 
14-16 Logical relationship AND or OR 16-18 
15-16 Sequence Any two alphabetic 17-18 
characters 
Any two-digit 
number 


© Copyright IBM Corp. 1989, 2002 


Table 15. RPG III Program Described Files, Record Identification Entries (I) (continued) 


Positions Name Entry RPG IV 
17 Number Blank 19 
1 
N 
18 Option Blank 20 
O 
19-20 Record identifying 01-99 21-22 
indicators L1-L9, or LR 
H1-H9 
U1-U8 
RT 
+ + 
21-24, Position Blank 23-27, 
28-31, 1-9999 31-35, 
35-38 39-43 
25, 32, 39 Logical relationship Blank 28, 36, 44 
N 
26, 33, 40 Code part Cc 29, 37, 45 
Z 
D 
Character Any character 30, 38, 46 
42-74 Blank 47-80 
75-80 Comments Optional 81-100 


Table 16. RPG III Program Described Files, Field Description Entries (J) 


Positions 


Name 


Entry 


RPG IV 


7-42 


Blank 


7-30 


43, 


Data format 


Blank 
B 
L 
P 
R 


36 


44-47 


From 


1-9999 


37-41 


48-51 


To 


1-9999 


42-46 


52 


Decimal positions 


Blank 
0-9 


47-48 


53-58 


Field name 


Symbolic name 


49-62 


59-60 


Control Level 


Blank 
L1-L9 


63-64 


61-62 


Match fields 


Blank 
M1-M9 


65-66 


63-64 


Field record relation 


Blank 
01-99 
L1-L9 
MR 
U1-U8 
H1-H9 
RT 


67-68 
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Table 16. RPG III Program Described Files, Field Description Entries (J) (continued) 


Positions Name Entry RPG IV 
65-70 Field indicators Blank 69-74 
01-99 
H1-H9 
U1-U8 
RT 
71-74 Blank 75-80 
75-80 Comments Optional 81-100 
Table 17. RPG III Data Structure Statement Specifications (DS) 
Positions Name Entry RPG IV 
6 Form Type I (D) 6 
7-12 Data structure name Blank (D) 7-21 
Data structure name 
13-16 Blank n/a 
17 External description Blank (D) 22 
E 
18 Option Blank (D) 23 
I 
S 
U 
19-20 Record identifying DS (D) 24-25 
indicators 
21-30 External file name External name of data |(D) EXTNAME 
structure 
31-43 Blank n/a 
44-47 Occurrences Blank (D) OCCURS 
1-9999 
48-51 Data structure length Blank (D) 33-39 
1-9999 
52-74 Blank n/a 
75-80 Comments Optional 81-100 
Table 18. RPG III Data Structure Subfield Specifications (SS) 
Positions Name Entry RPG IV 
7 Blank n/a 
8 Initialization option Blank (D) INZ 
I 
9-20 Blank n/a 
21-30 External field name External name of (D) EXTFLD 
subfield 
21-42 Initialization value Initial value (D) INZ 
31-42 Blank n/a 
43 Data format Blank (D) 40 
P 
B 
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Table 18. RPG III Data Structure Subfield Specifications (SS) (continued) 


Positions Name Entry RPG IV 
44-47 From 1-9999 (D) 26-32 
48-51 To 1-9999 (D) 33-39 
52 Decimal position Blank (D) 41-42 
0-9 
53-58 Subfield name Subfield name (D) 7-21 
59-74 Blank n/a 
75-80 Comments Optional 81-100 
Table 19. RPG III Named Constant Specifications (N) 
Positions Name Entry RPG IV 
6 Form type I (D) 6 
7-20 Blank n/a 
21-42 Constant Constant value (D) CONST 
43, Data type C (D) 24 
Blank 
44-52 Blank n/a 
53-58 Constant name Name (D) 7-21 
59-74 Blank n/a 


Table 20. RPG 


IV Externally Described Files, Record Identification Entries (IX) 


Positions Name Entry RPG III 
6 Form type I 6 
7-16 Record name Record format name 7-14 
17-20 Blank 15-18 
21-22 Record identifying Blank 19-20 
indicators 01-99 

L1-L9, LR 

H1-H9 

U1-U8 

RT 
23-80 Blank 21-74 
81-100 Comments Optional 75-80 
Table 21. RPG IV Externally Described Files, Field Entries (JX) 
Positions Name Entry RPG III 
6 Form type I 6 
7-20 Blank 7-20 
21-30 External field name Field name 21-30 
31-48 Blank 31-52 
49-62 RPG field name Field name 53-58 
63-64 Control level Blank 59-60 

L1-L9 
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Table 21. RPG IV Externally Described Files, Field Entries (JX) (continued) 


Positions Name Entry RPG III 
65-66 Match fields Blank 61-62 
M1-M9 
67-68 Blank 63-64 
69-74 Field indicators Blank 65-70 
01-99 
H1-H9 
U1-U8 
RT 
75-80 Blank 71-75 
81-100 Comments Optional 75-80 


Table 22. RPG IV Program Described Files, Record Identification Entries (I) 


Positions Name Entry RPG III 
6 Form type I 6 
7-16 File name Valid file name 7-14 
16-18 Logical relationship AND or OR 14-16 
17-18 Sequence Any two alphabetic 15-16 
characters 
Any two-digit 
number 
19 Number Blank 17 
1 
N 
20 Option Blank 18 
O 
21-22 Record identifying Blank 19-20 
indicators 01-99 
L1-L9, or LR 
H1-H9 
U1-U8 
RT 
te 
23-27, Position Blank 21-24, 
31-35, 1-32766 28-31, 
39-43 35-38 
28, 36, 44 Logical relationship Blank 25, 32, 39 
N 
29, 37, 45 Code part Cc 26, 33, 40 
Z 
D 
30, 38, 46 Character Any character 27, 34, 41 
47-80 Blank 42-74 
81-100 Comments Optional 75-80 


Table 23. RPG IV Program Described Files, Field Description Entries (J) 


Positions 


Name 


Entry 


RPG III 


6 


Form type 


I 


6 
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Table 23. RPG IV Program Described Files, Field Description Entries (J) (continued) 


Positions Name Entry RPG III 
7-30 Blank 7-42 
31-34 Data attributes *VAR or Date/Time n/a 
external format 
35 Date/Time separator Any Character n/a 
36 Data format Blank 43 
A 
B 
Cc 
D 
F 
G 
I 
L 
N 
P 
R 
S 
T 
U 
Z 
37-41 From 1-32766 44-47 
42-46 To 1-32766 48-51 
47-48 Decimal positions Blank 52 
0-31 
49-62 Field name Symbolic name 53-58 
63-64 Control Level Blank 59-60 
L1-L9 
65-66 Match fields Blank 61-62 
M1-M9 
67-68 Field record relation Blank 63-64 
01-99 
L1-L9 
MR 
U1-U8 
H1-H9 
RT 
69-74 Field indicators Blank 65-70 
01-99 
H1-H9 
U1-U8 
RT 
75-80 Blank 71-74 
81-100 Comments Optional 75-80 
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Chapter 9. Calculation Specifications 
Table 24. RPG III Calculation Specifications Summary Chart (C) 


Positions Name Entry RPG IV 


6 Form type Cc 6 


7-8 Control level Blank 7-8 
LO 
L1-L9 
LR 

SR 

AN, OR 


9-17 Conditioning indicators | Blank 9-11 
01-99 

KA-KN, KP-KY 
L1-L9 

LR 

MR 

H1-H9 

RT 

U1-U8 

OA-OG, OV 


18-27 Factor 1 Symbolic name or 12-25 
literal 


28-32 Operation Operation code 26-35 


33-42 Factor 2 Symbolic name or 36-49 
literal 


43-48 Result field Field name 50-63 


49-51 Field length Blank 64-68 
1-30 
1-256 


52 Decimal positions Blank 69-70 
0-9 


53 Operation Extender Blank 26-35 
P 
H 
N 


54-59 Resulting indicators Blank 71-76 
01-99 

KA-KN, KP-KY 
H1-H9 

L1-L9 

LR 

OA-OG, OV 
U1-U8 

RT 


60-80 Comments Comments 81-100 


Table 25. RPG IV Calculation Specifications Summary Chart (C) 


Positions Name Entry RPG III 


6 Form type Cc 6 
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Table 25. RPG IV Calculation Specifications Summary Chart (C) (continued) 


Positions 


Name 


Entry 


RPG I 


7-8 


Control level 


Blank 
LO 
L1-L9 
LR 

SR 

AN, OR 


7-8 


9-11 


Conditioning indicators 


Blank 

01-99 

KA-KN, KP-KY 
L1-L9 

LR 

MR 

H1-H9 

RT 

U1-U8 

OA-OG, OV 


9-17 


12-25 


Factor 1 


Symbolic name or 
literal 


18-27 


26-35 


Operation and extender 


Operation code and 
extender 


28-32, 53 


36-49 


Factor 2 


Symbolic name or 
literal 


33-42 


50-63 


Result field 


Field name 


43-48 


64-68 


Field length 


Blank 
1-31 
1-32767 


49-51 


69-70 


Decimal positions 


Blank 
0-31 


52 


71-76 


Resulting indicators 


Blank 

01-99 

KA-KN, KP-KY 
H1-H9 

L1-L9 

LR 

OA-OG, OV 
U1-U8 

RT 


54-59 


77-80 


Reserved 


Blank 


n/a 


81-100 


Comments 


Comments 


60-80 


Table 26. RPG 


IV Calculation Specifications Extended Factor 2 Summary Chart (CX) 


Positions 


Name 


Entry 


RPG I 


6 


Form type 


Cc 


n/a 


7-8 
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Control level 


Blank 
LO 
L1-L9 
LR 

SR 

AN, OR 


n/a 


Table 26. RPG IV Calculation Specifications Extended Factor 2 Summary Chart 
(CX) (continued) 


Positions 


Name 


Entry 


RPG III 


9-11 


Conditioning indicators 


Blank 

01-99 

KA-KN, KP-KY 
L1-L9 

LR 

MR 

H1-H9 

RT 

U1-U8 

OA-OG, OV 


n/a 


12-25 


Factor 1 


Reserved 


n/a 


26-35 


Operation 


Operation code and 
extender 


n/a 


36-80 


Extended Factor 2 


Expression 


n/a 


The /FREE (start free-form) and /END-FREE (end free-form) compiler directives 
delimit calculations in RPG IV free-form syntax. 


Table 27. RPG IV Free-Form Calculation Specifications Summary Chart 


Positions Name Entry RPG III 
6-7 Blank n/a 
7 Start or end free-form /FREE or /END-FREE n/a 
specification delimiter 
8-80 Free-form calculation Operation code and n/a 
statement extendor, expression 
ended with a 
semi-colon (;) 
6-80 Comments // n/a 
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Chapter 10. Output Specifications 


Table 28. RPG III Externally Described Files, Record Identification and Control Entries (O) 


Positions Name Entry RPG IV 
6 Form type O 6 
7-14 Record name Valid record-format 7-16 
name 
14-16 Logical relationship AND or OR 16-18 
15 Type H or D 7 
T 
E 
16 Release R 18 
16-18 Record addition field ADD 18-20 
DEL 
16-22 Space/Skip, Fetch Blank 40-51 
Overflow 
23-31 Output indicators Blank 21-29 
01-99 
KA-KN, KP-KY 
L1-L9 
H1-H9 
U1-U8 
MR 
LR 
RT 
1P 
32-37 EXCPT name Record group name 30-39 
38-74 Reserved Blank 40-80 
75-80 Comments Optional 81-100 


Table 29. RPG III Externally Described Files, Field Description and Control Entries (P) 


Positions Name Entry RPG IV 
6 Form type O 6 
7-22 Reserved Blank 7-20 
23-31 Field output indicators | See output indicators 21-29 
32-37 Field name Valid field 30-43 
name 
*ALL 
38 Reserved Blank 44 
39 Blank after Blank 45 
B 
40-74 Reserved Blank 46-80 
75-80 Comments Optional 81-100 
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Table 30. RPG III Program Described Files, Record Identification and Control Entries 


(Record Line) (OD) 


Positions Name Entry RPG IV 
6 Form type O 6 
7-14 File name Valid file name 7-16 
14-16 Logical relationship AND or OR 16-18 
15 Type H or D 17 
T 
E 
16-18 Addition/Deletion ADD 18-20 
DEL 
16 Fetch overflow Blank 18 
F F 
Release R 
17 Space before 0 or blank 40-42 
1 
2 
3 
18 Space after 0 or blank 43-45 
1 
2 
3 
19-20 Skip before 01-99 46-48 
AO-A9 
BO-B2 
21-22 Skip after 01-99 49-51 
A0-A9 
BO-B2 
23-31 Output indicators Blank 21-29 
01-99 
KA-KN, KP-KY 
L1-L9 
H1-H9 
U1-U8 
OA-OG, OV 
MR 
LR 
RT 
‘1P 
32-37 EXCPT name Record group name 30-39 
38-74 Reserved Blank 52-80 
75-80 Comments Optional 81-100 


Table 31. RPG III Program Described Files, Field Description and Control Entries (Field 


Line) (P) 

Positions Name Entry RPG IV 
6 Form type O 6 

7-22 Reserved Blank 7-21 
23-31 Field output indicators |See output indicators 21-29 


ILE RPG Reference Summary 


Table 31. RPG III Program Described Files, Field Description and Control Entries (Field 


Line) (P) (continued) 


Positions Name 


Entry 


RPG IV 


32-37 Field name 


Valid field name 


PAGE, 
PAGE1-PAGE7 


UDATE, UDAY, 
UMONTH, UYEAR, 
*DATE, *DAY, 
*MONTH, *YEAR 


*PLACE 


30-43 


38 Edit code 


Blank 

1-4 

5-9 

A-D, J-Q, X, Y, Z 


44 


39 Blank after 


Blank 
B 


45 


40-43 End position in output 
record 


Blanks, +nnn, —nnn, 


47-51 


44 Data Format 


52 


45-70 Constant or edit word 


Constant or edit word 
Format name 


53-80 


71-74 Reserved 


Blank 


n/a 


75-80 Comments 


Optional 


81-100 


Table 32. RPG IV Externally Described Files, Record Identification and Control Entries (O) 


Positions Name Entry RPG III 
6 Form type O 6 
7-16 Record name Valid record-format 7-14 
name 
16-18 Logical relationship AND or OR 14-16 
17 Type H or D 15 
T 
E 
18 Release R 16 
18-20 Record addition field ADD 16-18 
DEL 
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Table 32. RPG IV Externally Described Files, Record Identification and Control Entries 


(O) (continued) 


Positions 


Name 


Entry 


RPG I 


21-29 


Output indicators 


Blank 

01-99 

KA-KN, KP-KY 
L1-L9 

H1-H9 

U1-U8 

MR 

LR 

RT 

1P 


23-31 


30-39 


EXCEPT name 


Record group name 


32-37 


40-80 


Reserved 


Blank 


38-74 


81-100 


Comments 


Optional 


75-80 


Table 33. RPG 


| 


V Externally Described Files, Field Description and 


Control Entries (P) 


Positions Name Entry RPG III 
6 Form type O 6 
7-20 Reserved Blank 7-22 
21-29 Field output indicators | See output indicators 23-31 
30-43 Field name Valid field name 32-37 
*ALL 
44 Reserved Blank 38 
45 Blank after Blank 39 
B 
46-80 Reserved Blank 40-74 
81-100 Comments Optional 75-80 


Table 34. RPG IV Program Described Files, Record Identification and Control Entries 
(Record Line) (OD) 


Positions Name Entry RPG III 
6 Form type O 6 
7-16 File name Valid file name 7-14 
16-18 AND/OR AND or OR 14-16 
17 Type H or D 15 
T 
E 
18 Fetch overflow Blank 16 
F F 
Release R 
18-20 ADD/DEL ADD 16-18 
DEL 
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Table 34. RPG IV Program Described Files, Record Identification and Control Entries 
(Record Line) (OD) (continued) 


Positions 


Name 


Entry 


RPG III 


21-29 


Output indicators 


Blank 

01-99 
KA-KN, KP-KY 
L1-L9 
H1-H9 
U1-U8 
OA-OG, OV 
MR 

LR 

RT 

1P 


23-31 


30-39 


EXCEPT name 


Record group name 


32-37 


40-42 


Space before 


0 or blank 
1-255 


17 


43-45 


Space after 


0 or blank 
1-255 


18 


46-48 


Skip before 


1-255 


19-20 


49-51 


Skip after 


1-255 


21-22 


52-80 


Reserved 


Blank 


38-74 


81-100 


Comments 


Optional 


75-80 


Table 35. RPG IV Program Described Files, Field Description and Control Entries (Field 


Line) (P) 
Positions Name Entry RPG III 
6 Form type O 6 
7-21 Reserved Blank 7-22 
21-29 Field output indicators | See output indicators 23-31 
30-43 Field name Valid field name 32-37 
PAGE, 
PAGE1-PAGE7 
UDATE, UDAY, 
UMONTH, UYEAR, 
*DATE, *DAY, 
*MONTH, *YEAR 
*PLACE 
*IN, *INxx, *IN(xx) 
44 Edit code Blank 38 
1-4 
5-9 
A-D, J-Q, x, Y; ZL 
45 Blank after Blank 39 
B 
47-51 End position in output | Blanks, +nnnn, 40-43 


record 


—nnnn, nnonn 


K1-K10 
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Table 35. RPG IV Program Described Files, Field Description and Control Entries (Field 
Line) (P) (continued) 
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Positions Name Entry RPG III 
2 Data Format Blank 44 
A 
B 
C 
D 
F 
G 
I 
L 
N 
P 
R 
S 
T 
U 
Z, 
53-80 Constant, Edit word, Constant, Edit word, 45-70 
Data attribute, Format | Data attribute, Format 
name name 
81-100 Comments Optional 75-80 


Chapter 11. Procedure Specifications 


Table 36. RPG IV Procedure Specification (PR) 


Positions or Name Entry 
Keyword 

6 Form type P 

7-21 Name Symbolic name 
24 Begin/End Procedure BE 

44-80 Keywords 

81-100 Comments Optional 
EXPORT Procedure can be exported 
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Chapter 12. Built-In Functions 


Table 37. RPG IV Built-In Functions Summary 


Name Arguments Value Returned 
% ABS numeric expression absolute value of expression 
% ADDR variable name address of variable 
%ALLOC number of bytes to allocate pointer to allocated storage 
%BITAND character, numeric bit wise ANDing of the bits of all the 
arguments 
%BITNOT character, numeric bit-wise reverse of the bits of the argument 
%BITOR character, numeric bit-wise ORing of the bits of all the 
arguments 
%BITXOR character, numeric bit-wise exclusive ORing of the bits of the 
two arguments 
%CHAR graphic, UCS-2, numeric, date, time, or value in character format 
timestamp expression {: date, time, or 
timestamp format} 
%CHECK comparator string:string to be checked{:start | first position of a character that is not in the 
position} comparator string, or zero if not found 
%CHECKR comparator string:string to be checked{:start | last position of a character that is not in the 
position} comparator string, or zero if not found 
%DATE {value {: date format}} the date that corresponds to the specified 
value, or the current system date if none is 
specified 
%DAYS number of days number of days as a duration 
%DEC numeric expression {:digits:decpos} value in packed numeric format 
character expression: digits:decpos 
%DECH numeric or character expression: half-adjusted value in packed numeric 
digits:decpos format 
%DECPOS numeric expression number of decimal digits 
% DIFF date or time expression: date or time difference between the two dates, times, or 
expression: unit timestamps in the specified unit 
%DIV dividend: divisor the quotient from the division of the two 
arguments 
%EDITC non-float numeric expression:edit code string representing edited value 
{“CURSYM | *ASTFILL | currency symbol} 
%EDITFLT numeric expression character external display representation of 
float 
%EDITW non-float numeric expression:edit word string representing edited value 
%ELEM array, table, or multiple occurrence data number of elements or occurrences 
structure name 
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Table 37. RPG IV Built-In Functions Summary (continued) 


Name Arguments Value Returned 

%EOF {file name} ‘l’ if the most recent cycle input, read 
operation, or write to a subfile (for a 
particular file, if specified) ended in an 
end-of-file or beginning-of-file condition; 
and, when a file is specified, if a more recent 
OPEN, CHAIN, SETGT or SETLL to the file 
was not successful 
’0’ otherwise 

YEQUAL {file name} ‘1’ if the most recent SETLL (for a particular 
file, if specified) or LOOKUP operation 
found an exact match 
’0’ otherwise 

%ERROR ‘l’ if the most recent operation code with 
extender ’E’ specified resulted in an error 
‘0’ otherwise 

%FIELDS list of fields to be updated not applicable 

%FLOAT numeric or character expression value in float format 

%FOUND {file name} ‘1’ if the most recent relevant operation (for a 
particular file, if specified) found a record 
(CHAIN, DELETE, SETGT, SETLL), an 
element (LOOKUP), or a match (CHECK, 
CHECKR, SCAN) 
’0’ otherwise 

%GRAPH character, graphic, or UCS-2 expression value in graphic format 

%HOURS number of hours number of hours as a duration 

%INT numeric or character expression value in integer format 

%INTH numeric or character expression half-adjusted value in integer format 

%KDS data structure containing keys {: number of _ | not applicable 

keys} 
%LEN any expression length in digits or characters 
%LOOKUPxx argument: array{:start index {:number of array index of the matching element 
elements}} 
%MINUTES number of minutes number of minutes as a duration 
%MONTHS number of months number of months as a duration 


%MSECONDS number of microseconds number of microseconds as a duration 

%NULLIND null-capable field name value in indicator format representing the 
null indicator setting for the null-capable 
field 

%OCCUR multiple-occurrence data structure name current occurrence of the multiple-occurrence 
data structure 

%OPEN file name ‘1’ if the specified file is open 
‘0’ if the specified file is closed 

%PADDR procedure or prototype name address of procedure or prototype 

%PARMS none number of parameters passed to procedure 

%REALLOC pointer: numeric expression pointer to allocated storage 
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Table 37. RPG IV Built-In Functions Summary (continued) 


Name Arguments Value Returned 
%REM dividend: divisor the remainder from the division of the two 
arguments 
%REPLACE replacement string: source string {:start string produced by inserting replacement 
position {:source length to replace}} string into source string, starting at start 
position and replacing the specified number 
of characters 
%SCAN search argument:string to be searched{:start | first position of search argument in string or 
position} zero if not found 
%SECONDS number of seconds number of seconds as a duration 
%SHTDN ‘1’ if the system operator has requested 
shutdown 
’0’ otherwise 
%SIZE variable, array, or literal {:* ALL} size of variable or literal 
%SORT numeric value square root of the numeric value 
%STATUS {file name} 0 if no program or file error occurred since 
the most recent operation code with extender 
‘FE’ specified 
most recent value set for any program or file 
status, if an error occurred 
if a file is specified, the value returned is the 
most recent status for that file 
%STR pointer{:maximum length} characters addressed by pointer argument up 
to but not including the first x’00’ 
%SUBDT date or time expression: unit an unsigned numeric value that contains the 
specified portion of the date or time value 
% SUBST string:start{:length} substring 
% THIS the class instance of the native method 
% TIME {value {: time format}} the time that corresponds to the specified 
value, or the current system time if none is 
specified 
% TIMESTAMP {(value {: timestamp format})} the timestamp that corresponds to the 
specified value, or the current system 
timestamp if none is specified 
%TLOOKUPxx argument: search table {: alternate table} ’*ON’ if there is a match 
’*OFF’ otherwise 
% TRIM string string with left and right blanks trimmed 
%TRIML string string with left blanks trimmed 
%TRIMR string string with right blanks trimmed 
%UCS2 character, graphic, or UCS-2 expression value in UCS-2 format 
%UNS numeric or character expression value in unsigned format 
%UNSH numeric or character expression half-adjusted value in unsigned format 
%XFOOT array expression sum of the elements 
%XLATE from-characters: to-characters: string {: start | the string with from-characters replaced by 
position} to-characters 
% YEARS number of years number of years as a duration 
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Chapter 13. Operation Codes 


RPG IV Free-Form Syntax 


Table 38. RPG IV Operation Codes in Free-Form Syntax 


Code Free-Form Syntax 

ACQ ACQ{(E)} device-name workstn-file 

BEGSR BEGSR subroutine-name 

CALLP {CALLP{(EMR)}} name( {parm1{:parm2...}} ) 
CHAIN CHAIN{(ENHMR)} search-arg {data-structure} 
CLEAR CLEAR {*NOKEY} {*ALL} name 

CLOSE CLOSE{(E)} file-name 

COMMIT COMMIT{(E)} {boundary} 

DEALLOC DEALLOC{(EN)} pointer-name 

DELETE DELETE{(EHMR)} {search-arg} 

DOU DOU{(MR)} indicator-expression 

DOW DOW{(MR)} indicator-expression 

DSPLY DSPLY{(E)} {message-expression {output-queue {response}}} 
DUMP DUMP{(A)} {identifier} 

ELSE ELSE 

ELSEIF ELSEIF{(MR)} indicator-expression 
ENDDO ENDDO 

ENDFOR ENDFOR 

ENDIF ENDIF 

ENDMON ENDMON 

ENDSL ENDSL 

ENDSR ENDSR {return-point} 

EVAL {EVAL{(HMR)}} result = expression 

EVALR EVALR{(MR)} result = expression 

EXCEPT EXCEPT {except-name} 

EXFMT EXFMT{(E)} format-name 

EXSR EXSR subroutine-name 

FEOD FEOD{(EN)} file-name 

FOR FOR{(MR)} index {= start} {BY increment} {TO|DOWNTO limit} 
FORCE FORCE file-name 

IF IF{(MR)} indicator-expression 

IN IN{(E)} {*LOCK} data-area-name 

ITER ITER 

LEAVE LEAVE 

LEAVESR LEAVESR 
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Table 38. RPG IV Operation Codes in Free-Form Syntax (continued) 


Code Free-Form Syntax 

MONITOR MONITOR 

NEXT NEXT{(E)} program-device file-name 

ON-ERROR ON-ERROR {exception-id1 {:exception-id2...}} 

OPEN OPEN{(E)} file-name 

OTHER OTHER 

OUT OUT{(E)} {*LOCK} data-area-name 

POST POST{(E)} {program-device} file-name 

READ READ{(EN)} name {data-structure} 

READC READC{(E)} record-name 

READE READE{(ENHMR)} search-arg |*KEY {data-structure} 
READP READP{(EN)} name {data-structure} 

READPE READPE{(ENHMR)} search-arg |*KEY {data-structure} 
REL REL{(E)} program-device file-name 

RESET RESET{(E)} {*NOKEY} {*ALL} name 

RETURN RETURN{(HMR)} expression 

ROLBK ROLBK{(E)} 

SELECT SELECT 

SETGT SETGT{(EHMR)} search-arg 

SETLL SETLL{(EHMR)} search-arg 

SORTA SORTA array-name 

TEST TEST{(EDTZ)} {dtz-format} field-name 

UNLOCK UNLOCK{(E)} name 

UPDATE UPDATE{(E)} name {data-structure | %YFIELDS(name{:name...})} 
WHEN WHEN{(MR)} indicator-expression 

WRITE WRITE{(E)} name {data-structure} 


Traditional Syntax 


* An empty column indicates that the field must be blank. 

* All underlined fields are required. 

* An underscored space denotes that there is no resulting indicator in that 
position. 

* Type 
III RPG III only 
IV RPG IV only 


* Symbols 
+ Plus 
- Minus 


* Extenders (RPG HD 
(h) Half adjust the result 
(n) Set pointer to *NULL after successful DEALLOC 
(p) Pad the result with blanks 


* Extenders (RPG IV) 
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(d) 
(d) 
(e) 
(h) 
(m) 
(n) 
(n) 
(n) 
(p) 
(r) 
(t) 
(z) 


Pass operational descriptors on bound call 

Date field 

Error handling 

Half adjust the result 

Default precision rules 

Do not lock record on input, if file is update 

Set pointer to *NULL after successful DEALLOC 
Do not force data to non-volatile storage 

Pad the result with blanks 

No intermediate value will have fewer decimal positions than the result 
Time field 

Timestamp field 


Resulting indicator symbols 


BL Blank(s) 
BN Blank(s) then numeric 
BOF _ Beginning of the file 
EOF _ End of the file 
EQ Equal 
ER Error 
FD Found 
HI Greater than 
IN Indicator 
LO Less than 
LR Last record 
NR No record was found 
NU Numeric 
OF Off 
ON On 
Z Zero 
ZB Zero or Blank 
Table 39. Operation Code Specifications Summary 
RPG | Code Factor 1 Factor 2 Result Field Resulting 
Indicators 
ACO (e°) device-name workstn-file _ER_ 
ADD (h) Addend Addend Sum +-Z 
IV ADDDUR (e) | Date/Time Duration: Date/Time _ER_ 
Duration Code 
IV ALLOC (e) Length Pointer _ER_ 
ANDxx Comparand Comparand 
BEGSR subroutine- 
name 
BITOFF Bit numbers Character field 
(BITOF) 
BITON Bit numbers Character field 
CABxx Comparand Comparand Label HI LO EQ 
CALL (e) Program name | Plist name _ ER LR 
IV CALLB (d e) Program name | Plist name _ ER LR 
IV CALLP (e m/r) name{ (parm1 {:parm2...}) } 
CASxx Comparand Comparand Subroutine HI LO EQ 
name 
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Table 39. Operation Code Specifications Summary (continued) 


RPG | Code Factor 1 Factor 2 Result Field Resulting 
Indicators 
Source string 1 | Source string Target string 
2:number of 
blanks 
CHAIN (e n) search-arg name (file or data-structure NR? ER _ 
record format) 
CHECK (e) Comparator Base string:start | Left-most _ ER FD? 
string position(s) 
CHECKR (e) Comparator Base string:start | Right-most _ ER FD? 
(CHEKR) string position(s) 
Ill CLEAR *NOKEY Structure, 
Variable, or 
Record name 
IV CLEAR *NOKEY *ALL name (variable 
or record 
format) 
CLOSE (e) file-name _ER_ 
COMMIT (e) | boundary _ER_ 
(COMIT) 
COMP" Comparand Comparand HI LO EQ 
IV DEALLOC(e/n) pointer-name _ER_ 
Ill DEBUG Identifier Output file Debug info 
DEFINE *LIKE Referenced Defined field 
(DEFN) field 
IV DEFINE *DTAARA External data Internal 
(DEFN) area program area 
Ill DEFINE *NAMVAR External data Internal 
(DEFN) area program area 
DELETE (e) search-arg name NR? ER _ 
(DELET) 
DIV (h) Dividend Divisor Quotient +-Z 
DO Starting value | Limit value Index value 
IV DOU (m/r) indicator-expression 
DOUxx Comparand Comparand 
IV DOW (m/r) indicator-expression 
DOWxx Comparand Comparand 
DSPLY (e)* message output-queue | response _ER_ 
Ill DUMP Identifier 
IV DUMP (a) identifier 
ELSE 
ELSEIF (m/r) indicator-expression 
END Increment 
value 
ENDCS 
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Table 39. Operation Code Specifications Summary (continued) 


RPG | Code Factor 1 Factor 2 Result Field Resulting 
Indicators 
ENDDO Increment 
value 
ENDIF 
IV ENDFOR 
IV ENDMON 
ENDSL 
ENDSR label return-point 
IV EVAL (h m/r) Result = Expression 
IV EVALR (m/1) Result = Expression 
EXCEPT except-name 
(EXCPT) 
EXFMT (e) format-name _ER_ 
EXSR subroutine- 
name 
IV EXTRCT (e) Date/Time Target field _ER_ 
:Duration Code 
FEOD (e/n) file-name _ER_ 
IV FOR index-name = start-value BY increment TO | 
DOWNTO limit 
FORCE file-name 
Ill FREE Program name _ER_ 
GOTO Label 
IF (m/r) indicator-expression 
IV IFxx Comparand Comparand 
IN (e) *LOCK data-area-name _ER_ 
ITER 
KFLD Indicator Key field 
KLIST KLIST name 
LEAVE 
IV LEAVESR 
LOOKUP" 
(LOKUP) 
(array) Search Array name HI LO EQ’ 
argument 
(table) Search Table name Table name HI LO EQ’ 
argument 
MHHZO Source field Target field 
MHLZO Source field Target field 
MLHZO Source field Target field 
MLLZO Source field Target field 
IV MONITOR 
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Table 39. Operation Code Specifications Summary (continued) 


ILE RPG Reference Summary 


RPG | Code Factor 1 Factor 2 Result Field Resulting 
Indicators 
IV MOVE (p) Date/Time Source field Target field + — ZB 
format 
Il MOVE (p) Source field Target field + — ZB 
MOVEA (p) Source Target + — ZB 
IV MOVEL (p) Date/Time Source field Target field + — ZB 
format 
Il MOVEL (p) Source field Target field + — ZB 
MULT (h) Multiplicand Multiplier Product +-Z 
MVR Remainder +-Z 
NEXT (e) program-device | file-name ER _ 
OCCUR (e) Occurrence Data structure | Occurrence ER _ 
OCUR value value 
IV ON-ERROR Exception IDs 
OPEN (e) file-name _ER_ 
ORxx Comparand Comparand 
OTHER 
OUT (e) *LOCK. data-area-name i BR. 
PARM Target field Source field Parameter 
PLIST PLIST name 
POST (e)® program-device | filename INFDS name _ER_ 
READ (e n)® name (file or data-structure _ ER EOF® 
record format) 
READC (e) record-name _ ER EOF® 
READE (e n)*_| search-arg name (file or data-structure _ ER EOF® 
record format) 
READP (e n)° name (file or data-structure _ ER BOF® 
record format) 
READPE(e n)” | search-arg name (file or data-structure _ ER BOF® 
(REDPE(n)) record format) 
IV REALLOC (e) Length Pointer _ER_ 
program-device | file-name _ER_ 
Il *NOKEY Structure, _ER_ 
Variable, or 
Record name 
IV RESET (e) *NOKEY *ALL name (variable _ER_ 
or record 
format) 
Ill 
IV RETURN (h expression 
m/r) 
ROLBK (e) _ER_ 
SCAN (e) Comparator Base string:start | Left-most _ ER FD? 
string:length position(s) 


Table 39. Operation Code Specifications Summary (continued) 


RPG | Code Factor 1 Factor 2 Result Field Resulting 
Indicators 
SELECT 
(SELEC) 
SETGT (e) search-arg name (file or NR? ER _ 
record format) 
SETLL (e) search-arg name (file or NR? ER EQ” 
record format) 
SETOFF* OF OF OF 
(SETOF) 
SETON’ ON ON ON 
SHTDN ON _ _ 
SORTA array-name 
SORT (h) Value Root 
SUB (h) Minuend Subtrahend Difference +-Z 
IV SUBDUR (e) Date/Time/ Date/Time/ Duration: ER _ 
(duration) Timestamp Timestamp Duration Code 
IV SUBDUR (e) Date/Time/ Duration: Date/Time/ ER _ 
(new date) Timestamp Duration Code | Timestamp 
SUBST (e p) Length to Base string:start | Target string _ER_ 
extract 
TAG Label 
IV TEST (e)? Date/Time/ _ER_ 
Timestamp 
Field 
IV TEST (e d/t/z)? | Date/Time/ Character / _ER_ 
Timestamp Numeric field 
Format 
TESTB? Bit numbers Character field OF ON EQ 
TESTN* Character field NU BN BL 
TESTZ* Character field AI JR XX 
Ill TIME Numeric 
IV TIME Numeric/ 
Date/Time/ 
Timestamp 
UNLOCK (e) name (file or _ER_ 
(UNLCK) data area) 
UPDATE (e)® name (file or data-structure _ER_ 
(UPDAT) record format) 
IV WHEN (m/r) Indicator expression 
WHENxx Comparand Comparand 
(WHxx) 
WRITE (e)® name (file or data-structure _ ER EOF® 
record format) 
XFOOT (h) Array name Sum +-Z 
XLATE (e p) From:To String:start Target string _ER_ 
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Table 39. Operation Code Specifications Summary (continued) 


RPG | Code Factor 1 Factor 2 Result Field Resulting 
Indicators 

Z-ADD (h) Addend Sum +-Z 
Z-SUB (h) Subtrahend Difference +-Z 

Notes: 

1. At least one resulting indicator is required. 

2. The %FOUND built-in function can be used as an alternative to specifying an NR or 
FD resulting indicator. Note that in RPG III, the NR indicator is required on the CHAIN 
operation. 

3. You must specify factor 2 or the result field. You may specify both. 

4. You must specify factor 1 or the result field. You may specify both. 

5. A data structure is allowed in the result field only when factor 2 contains a 
program-described file name. 

6. The %EOF built-in function can be used as an alternative to specifying an EOF or BOF 
resulting indicator. Note that in RPG III, the EOF and BOF indicators are required. 

7. The %EQUAL built-in function can be used to test the SETLL and LOOKUP operations. 

8. For all operation codes with extender ’E’, either the extender ’E’ or an ER error 
indicator can be specified, but not both. 

9. You must specify the extender ’E’ or an error indicator for the TEST operation. 
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Chapter 14. Data Types 


;_ Language Availability 
The majority of data types described in this section are only available in RPG 
IV. The following data types are an exception, and are available in both RPG 
IV and RPG III: 

* Character data 
— Fixed-length character data and predefined indicators. 
* Numeric data 
— Binary, left sign, packed-decimal, zoned-decimal,and right sign formats. 


Character Data 


For character data specify one of the following formats: 
A Fixed- or Variable Length Character 
N Indicator 


Fixed-length character fields are one or more bytes long. The default initialization 
value is blanks. 


Variable-length character fields have a declared maximum length and a current 
length that can vary while running a program. For internal formats, the definition 
specification keyword VARYING is used to specify variable-length fields. For 
external formats, the *VAR data attribute is used to specify variable-length fields 
on the corresponding input or output specification. A variable-length field is 
initialized by default to have a current length of zero. 


The indicator format is a special type of character data. Indicators are all one byte 
long and can only contain the character values ‘0’ (on) and ‘1’ (off). They are 
generally used to indicate the result of an operation or to condition (or control) the 
processing of an operation. The default value of indicators is ’0’. 


A special set of predefined RPG IV indicators (*INxx) is also available. 


Graphic Data 


The graphic data type is a character string where each character is represented by 
2 bytes. Graphic data can be defined in either fixed-length or variable-length 
format. 


Fixed-length graphic fields are one or more double bytes long. 


Variable-length graphic fields have a declared maximum length and a current 
length, measured in double bytes, that can vary while running a program. For 
internal formats, the definition specification keyword VARYING is used to specify 
variable-length fields. For external formats, the *VAR data attribute is used to 
specify variable-length fields on the corresponding input or output specification. A 
variable-length field is initialized by default to have a current length of zero. 


Fields defined as graphic data do not contain shift-out (SO) or shift-in (SI) 


characters. The default initialization value for graphic data is X'4040'. The value of 
*HIVAL is X'FFFF' and the value of *LOVAL is X'0000'. 
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UCS-2 Data 


The Universal Character Set (UCS-2) format is a character string where each 
character is represented by 2 bytes. This character set can encode the characters for 
many written languages. 


Fields defined as UCS-2 data do not contain shift-out (SO) or shift-in (SI) 
characters. 


The length of a UCS-2 field, in bytes, is two times the number of UCS-2 characters 
in the field. 


The fixed-length UCS-2 format is a character string with a set length where each 
character is represented by 2 bytes. 


Variable-length UCS-2 fields have a declared maximum length and a current 
length, measured in double bytes, that can vary while running a program. For 
internal formats, the definition specification keyword VARYING is used to specify 
variable-length fields. For external formats, the *VAR data attribute is used to 
specify variable-length fields on the corresponding input or output specification. A 
variable-length field is initialized by default to have a current length of zero. 


You define a UCS-2 field by specifying C in the Data-Type entry of the appropriate 
specification. You can also define one using the LIKE keyword on the definition 
specification where the parameter is a UCS-2 field. 


The default initialization value for UCS-2 data is X'0020'. The value of *HIVAL is 
X'FFFF', the value of *LOVAL is X'0000', and the value of *BLANKS is X'0020'. 


Numeric Data 


The numeric data type represents numeric values. Numeric data has one of the 
following formats: binary, integer, packed-decimal, unsigned, zoned-decimal, or 
float. 


You can specify an internal format for a specific field on a definition specification 
in position 40. The default internal format is packed-decimal. You can specify an 
external format for a program-described field on the corresponding input or output 
specification. 


Table 40. Entries and Locations for Specifying External Formats 
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Type of Field 


RPG IV Specification 


RPG III Specification 


Input 


Input - Position 36 


Input - Position 43 


Output 


Output - Position 52 


Output - Position 44 


Array or Table 


Definition - EXTFMT 
keyword 


Extension - Positions 43 an 
55 


For any program-described field, specify one of the following formats: 


AUoM aw 
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Binary 

Float 

Integer 

Left sign 
Packed decimal 
Right sign 


S Zoned decimal 
U Unsigned 


For numeric data other than float, the default external format is zoned decimal. 
The external format for compile-time arrays and tables must be zoned-decimal, 
left-sign or right-sign for numerics other than float. 


The default external format for float data is the float external display 
representation. For float compile-time arrays and tables, the compile-time data is 
specified as either a numeric literal or a float literal. 


The default initialization value for numeric fields is zero. 


The range of values allowed for an integer or float field depends on its length. 


Field length 
4-byte float (8 digits) 


8-byte float (16 digits) 


3-digit integer 
5-digit integer 
10-digit integer 
20-digit integer 
3-digit unsigned 
5-digit unsigned 
10-digit unsigned 
20-digit unsigned 


Range of Allowed Values 


-3.4028235E+38 to -1.1754944E-38, 0.0E+0, 
+1.1754944E-38 to +3.4028235E+38 


-1.797693134862315E+308 to -2.225073858507201E- 
308, 0.0E+0, +2.225073858507201E-308 to 
+1.797693134862315E+308 


-128 to 127 

-32768 to 32767 

-2147483648 to 2147483647 
-9223372036854775808 to 9223372036854775807 
0 to 255 

0 to 65535 

0 to 4294967295 

0 to 18446744073709551615 


Date Data 


Date fields have a predetermined size and format. There are two kinds of date data 
formats that can be defined on the definition specifications: 2-digit, and 4-digit 
year formats. Leading and trailing zeros are required for all date data. 


Table 41] lists the RPG-defined formats for date data and their separators. 
Table 41. RPG-defined date formats and separators for Date data type 


Format Description Format Valid Length | Example 
Name (Default Separators 
Separator) 

2-Digit Year Formats 
*MDY Month/Day/Year |mm/dd/yy /-.,'&’ 8 01/15/96 
*DMY Day/Month/Year |dd/mm/yy /-.,'&’ 8 15/01/96 
*YMD Year/Month/Day | yy/mm/dd /-.,'&’ 8 96/01/15 
*JUL Julian yy/ddd /-.,'& 6 96/015 

4-Digit Year Formats 
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Table 41. RPG-defined date formats and separators for Date data type (continued) 


Format Description Format Valid Length | Example 
Name (Default Separators 
Separator) 
*ISO International yyyy-mm-dd_ | - 10 1996-01-15 
Standards 
Organization 
*USA IBM USA Standard |mm/dd/yyyy | / 10 01/15/1996 
*EUR IBM European dd.mm.yyyy |. 10 15.01.1996 
Standard 
*JIS Japanese Industrial | yyyy-mm-dd__| - 10 1996-01-15 
Standard Christian 
Era 


Table 42) lists the *LOVAL, *HIVAL, and default values for all the RPG-defined date 
formats. 


Table 42. Date Values 


Format Name | Description *LOVAL *HIVAL Default Value 
2-Digit Year Formats 
*MDY Month/Day/Year 01/01/40 12/31/39 | 01/01/40 
*DMY Day/Month/ Year 01/01/40 31/12/39 |01/01/40 
*YMD Year / Month/Day 40/01/01 39/12/31 |40/01/01 
*JUL Julian 40/001 39/365 40/001 
4-Digit Year Formats 
*ISO International Standards 0001-01-01 9999-12-31 | 0001-01-01 
Organization 
*USA IBM USA Standard 01/01/0001 12/31/9999 |01/01/0001 
*EUR IBM European Standard 01.01.0001 31.12.9999 | 01.01.0001 
*JIS Japanese Industrial 0001-01-01 9999-12-31 | 0001-01-01 
Standard Christian Era 


Several formats are also supported for fields used by the MOVE, MOVEL, and 
TEST operations only. This support is provided for compatibility with externally 
defined values that are already in a 3-digit year format and the 4-digit year 
*LONGJUL format. It also applies to the 2-digit year formats when *JOBRUN is 
specified. 


Table 43} lists the valid externally defined date formats that can be used in Factor 1 
of a MOVE, MOVEL, and TEST operation. 


Table 43. Externally defined date formats and separators 


Format Description Format Valid Length | Example 
Name (Default Separators 
Separator) 


2-Digit Year Formats 


*JOBRUN! Determined at run time from the DATFMT, or DATSEP job values. 


3-Digit Year Formats” 
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Table 43. Externally defined date formats and separators (continued) 


Format Description Format Valid Length | Example 
Name (Default Separators 
Separator) 
*CYMD Century cyy/mm/dd /-.,'& 9 101/04/25 
Year /Month/Day 
*CMDY Century cmm/dd/yy /-.,'&’ 9 104/25/01 
Month/Day/Year 
*CDMY Century cdd/mm/yy /-.,'&’ 9 125/04/01 
Day/Month/ Year 
4-Digit Year Formats 
*“LONGJUL | LongJulian yyyy/ddd /-.,'& 9 2001/115 
Notes: 


1. *JOBRUN is valid only for character or numeric dates with a 2-digit year since the 
run-time job attribute for DATFMT can only be *MDY, *YMD, *DMY or *JUL. 


2. Valid values for the century character ’c’ are: 


"e' Years 
0 1900-1999 
1 2000-2099 
9 2800-2899 


Time Data 


Time fields have a predetermined size and format. They can be defined on the 
definition specification. Leading and trailing zeros are required for all time data. 


‘Table 44] shows the time formats supported and their separators. 


Table 44. Time formats and separators for Time data type 


RPG Description Format Valid Length | Example 
Name (Default Separators 
Separator) 
*HMS Hours:Minutes: hh:mm:ss :.,€8 8 14:00:00 
Seconds 
*ISO International hh.mm.ss : 8 14.00.00 
Standards 
Organization 
*USA IBM USA Standard. hh:mm AM or]: 8 02:00 PM 
AM and PM can be hh:mm PM 
any mix of upper and 
lower case. 
*EUR IBM European hh.mm.ss ‘ 8 14.00.00 
Standard 
*JIS Japanese Industrial hh:mm:ss : 8 14:00:00 
Standard Christian 
Era 
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Table 45) lists the *LOVAL, *HIVAL, and default values for all the date formats. 
Table 45. Time Values 


Format Description *LOVAL *HIVAL | Default 
Name Value 
*HMS Hours:Minutes:Seconds 00:00:00 24:00:00 | 00:00:00 
*ISO International Standards Organization | 00.00.00 24.00.00 | 00.00.00 
*USA IBM USA Standard. AM and PM can | 00:00 AM 12:00 AM |00:00 AM 
be any mix of upper and lower case. 
*EUR IBM European Standard 00.00.00 24.00.00 | 00.00.00 
*JIS Japanese Industrial Standard 00:00:00 24:00:00 — | 00:00:00 
Christian Era 


If *JOBRUN is specified, the format is determined at runtime from the TIMESEP 
job value. 


Timestamp Data 


Timestamp fields have a predetermined size and format. They can be defined on 
the definition specification. Timestamp data must be in the format 


yyyy-mm-dd-hh.mm.ss.mmmmmm (length 26). 


Microseconds (.mmmmmm) are optional for timestamp literals and if not provided 
will be padded on the right with zeroes. Leading zeros are required for all 
timestamp data. 


The default initialization value for a timestamp is midnight of January 1, 0001 
(0001-01-01-00.00.00.000000). The *HIVAL value for a timestamp is 
9999-12-31-24.00.00.000000. Similarly, the *LOVAL value for timestamp is 
0001-01-01-00.00.00.00000. 


TIP 
When coding a date, time or timestamp format on a MOVE, MOVEL or TEST 
operation, separators are optional for character fields. To indicate that there 
are no separators, specify a valid format followed by a zero. 


Object Data Type 
The object data type allows you to define a reference to a Java object. 
In position 40, you specify data type O. In the keyword section, you specify the 


CLASS keyword to indicate the class of the object. Specify *JAVA for the 
environment, and the class name. 


If the object is the return type of a Java constructor, the class of the returned object 
is the same as the class of the method so you do not specify the CLASS keyword. 
Instead, you specify the EXTPROC keyword, environment *JAVA, the class name, 
and procedure name *CONSTRUCTOR. 


An object cannot be based. It also cannot be a subfield of a data structure. 
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If an object is an array or table, it must be loaded at runtime. Pre-run and 
compile-time arrays and tables of type Object are not allowed. 


Every object is initialized to *NULL, which means that the object is not associated 
with an instance of its class. 


To change the contents of an object, you must use method calls. You cannot 
directly access the storage used by the object. 


Classes are resolved at runtime. The compiler does not check that a class exists or 
that it is compatible with other objects. 


Basing Pointer Data 


Basing pointers are used to point to data in storage. 


The length of the basing pointer field must be 16 bytes long and must be aligned 
on a 16 byte boundary. The default initialization value for basing pointers is 
*NULL. 


Procedure Pointer Data 


Procedure pointers are used to point to procedures or functions. 
The length of the procedure pointer field must be 16 bytes long and must be 


aligned on a 16 byte boundary. The default initialization value for procedure 
pointers is *NULL. 
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Chapter 15. Edit Codes 


Table 46. Edit Codes 


Edit Code Description 


Cr Sign 


—Sign(R) 


-Sign(L) 


Commas and zero balances 


Commas 2 B K O 
Zero balances 3 C L P 
No commas or zero balances 4 D M Q 
User-defined edit codes 5-9 

Hexadecimal F sign x? 

Date edit ¥? 

Suppress leading zeros Zz 


Notes: 


nn/n 
nn/nn 
nn/nn/n 
nn/nn/nn 
nnn/nn/nn 
nn/nn/nnnn 
nnn/nn/nnnn 
nnnn/nn/nn 
nnnnn/nn/nn 


leading zeros. 


1. The X edit code ensures a hexadecimal F sign for positive values. Because the system 
does this for you, normally you do not have to specify this code. 


2. The Y edit code suppresses the leftmost zeros of date fields, up to but not including the 
digit preceding the first separator. The Y edit code also inserts slashes (/) between the 
month, day, and year according to the following pattern (with zero suppression): 


3. The Z edit code removes the sign (plus or minus) from a numeric field and suppresses 
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Notices 


This information was developed for products and services offered in the U.S.A. 
IBM may not offer the products, services, or features discussed in this document in 
other countries. Consult your local IBM representative for information on the 
products and services currently available in your area. Any reference to an IBM 
product, program, or service is not intended to state or imply that only that IBM 
product, program, or service may be used. Any functionally equivalent product, 
program, or service that does not infringe any IBM intellectual property right may 
be used instead. However, it is the user’s responsibility to evaluate and verify the 
operation of any non-IBM product, program, or service. 


IBM may have patents or pending patent applications covering subject matter 
described in this document. The furnishing of this document does not give you 
any license to these patents. You can send license inquiries, in writing, to: 


IBM Director of Licensing 
IBM Corporation 

North Castle Drive 
Armonk, NY 10504-1785 
U.S.A. 


For license inquiries regarding double-byte (DBCS) information, contact the IBM 
Intellectual Property Department in your country or send inquiries, in writing, to: 


IBM World Trade Asia Corporation 
Licensing 

2-31 Roppongi 3-chome, Minato-ku 
Tokyo 106, Japan 


The following paragraph does not apply to the United Kingdom or any other 
country where such provisions are inconsistent with local law: 
INTERNATIONAL BUSINESS MACHINES CORPORATION PROVIDES THIS 
PUBLICATION “AS IS” WITHOUT WARRANTY OF ANY KIND, EITHER 
EXPRESS OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
WARRANTIES OF NON-INFRINGEMENT, MERCHANTABILITY OR FITNESS 
FOR A PARTICULAR PURPOSE. Some states do not allow disclaimer of express or 
implied warranties in certain transactions, therefore, this statement may not apply 
to you. 


This information could include technical inaccuracies or typographical errors. 
Changes are periodically made to the information herein; these changes will be 
incorporated in new editions of the publication. IBM may make improvements 
and/or changes in the product(s) and/or the program(s) described in this 
publication at any time without notice. 


Any references in this information to non-IBM Web sites are provided for 
convenience only and do not in any manner serve as an endorsement of those Web 
sites. The materials at those Web sites are not part of the materials for this IBM 
product and use of those Web sites is at your own risk. 


Licensees of this program who wish to have information about it for the purpose 
of enabling: (i) the exchange of information between independently created 
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programs and other programs (including this one) and (ii) the mutual use of the 
information which has been exchanged, should contact: 


IBM Canada Ltd. Laboratory 
Information Development 
8200 Warden Avenue 
Markham, Ontario L6G 1C7 
Canada 


Such information may be available, subject to appropriate terms and conditions, 
including in some cases, payment of a fee. 


The licensed program described in this information and all licensed material 
available for it are provided by IBM under terms of the IBM Customer Agreement, 
IBM International Program License Agreement, or any equivalent agreement 
between us. 


This information contains examples of data and reports used in daily business 
operations. To illustrate them as completely as possible, the examples include the 
names of individuals, companies, brands, and products. All of these names are 
fictitious and any similarity to the names and addresses used by an actual business 
enterprise is entirely coincidental. 


Programming Interface Information 


This publication is intended to help you create programs using RPG source. This 
publication documents General-Use Programming Interface and Associated 
Guidance Information provided by the ILE RPG compiler. 


General-Use programming interfaces allow the customer to write programs that 
obtain the services of the ILE RPG compiler. 
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Your feedback is important in helping to provide the most accurate and 
high-quality information. IBM welcomes any comments about this book or any 
other documentation. 
* If you prefer to send comments by mail, use the the following address: 

IBM Canada Ltd. Laboratory 

Information Development 

8200 Warden Avenue 


Markham, Ontario L6G 1C7 
Canada 


If you are mailing a readers’ comment form from a country other than the 
United States, you can give the form to the local IBM branch office or IBM 
representative for postage-paid mailing. 


* If you prefer to send comments electronically, use one of these e-mail addresses: 
— Comments on books: 
torrcf@ca.ibm.com 
IBMLink: toribm(torrcf) 
— Comments on the iSeries Information Center: 
RCHINFOC@us.ibm.com 


Be sure to include the following: 
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¢ The name of the book. 
* The publication number of the book. 
* The page number or topic to which your comment applies. 


Trademarks and Service Marks 


The following terms are trademarks of the International Business Machines 
Corporation in the United States or other countries or both: 


400 Application System /400 
AS/400 AS/400e 

DB2 e (Stylized) 

IBM IBMLink 

Integrated Language Environment iSeries 

Operating System /400 OS/400 

PROFS RPG/400 

System/36 WebSphere 


Java and all Java-based trademarks are trademarks of Sun Microsystems, Inc. in the 
United States, other countries, or both. 


UNIX is a registered trademark of The Open Group in the United States and other 
countries. 


Other company, product, and service names may be trademarks or service marks 
of others. 


Notices 67 


68 ILE RPG Reference Summary 


Program Number: 5722-WDS 


Printed in U.S.A. 


SX09-1315-03 


